{-# OPTIONS -Wall #-}


module Demo01 where

import WumpusLite.BoundingBox
import WumpusLite.Colour
import WumpusLite.Geometry
import WumpusLite.Picture
import WumpusLite.PostScript

import System.Directory

main :: IO ()
main = do 
  createDirectoryIfMissing True "./out/"
  writeFile "out/picture01.ps" picture01


picture01 :: PostScript
picture01 = outputPS $ Cat (Text (P2 10 40) "Hello")
                           (Cat (Trafo (Scale 1 2) (Path OPEN_STROKE (P2 10 80) segs))
                                (PrimCall "SCIRC" (P2 80 40) [6]))
                           
  where
    segs = [LineTo (V2 0 20), LineTo (V2 20 0)]



pi2 :: Radian
pi2 = 2 * pi